home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
crtpass.arc
/
CRTPASS.CLP
next >
Wrap
Text File
|
1991-12-04
|
5KB
|
103 lines
CRTPASTHR: PGM PARM(&RMTID &RMTLOC &LCLLOC &DEV &CTL &LIND +
&RESOURCE &LINESPEED &AUTODIAL &PHONE +
&EXCHID &STNADR &NBRDEV &VDEV &VCTL)
DCL &RMTID *CHAR 08
DCL &RMTLOC *CHAR 08
DCL &LCLLOC *CHAR 08
DCL &NBRDEV *DEC 02
DCL &VDEV *CHAR 10
DCL &VCTL *CHAR 10
DCL &DEV *CHAR 10
DCL &CTL *CHAR 10
DCL &LIND *CHAR 10
DCL &RESOURCE *CHAR 10
DCL &LINESPEED *CHAR 05
DCL &AUTODIAL *CHAR 04
DCL &PHONE *CHAR 22
DCL &EXCHID *CHAR 08
DCL &STNADR *CHAR 02
DCL &COUNT *DEC 02
DCL &CNT *CHAR 02
MONMSG MSGID(CPF0000)
IF (&VCTL *EQ '*RMTID') CHGVAR VAR(&VCTL) VALUE(&RMTID)
ELSE IF (&VCTL *EQ '*SYSNAM') RTVNETA SYSNAME(&VCTL)
ELSE IF (&VCTL *EQ '*LCLLOCNAM') +
RTVNETA LCLLOCNAME(&VCTL)
IF (&DEV *EQ '*RMTID') CHGVAR VAR(&DEV) VALUE(&RMTID)
IF (&CTL *EQ '*RMTID') CHGVAR VAR(&CTL) VALUE(&RMTID)
ELSE IF (&CTL *EQ '*SYSNAM') RTVNETA SYSNAME(&CTL)
ELSE IF (&CTL *EQ '*LCLLOCNAM') +
RTVNETA LCLLOCNAME(&CTL)
IF (&LIND *EQ '*RMTID') CHGVAR VAR(&LIND) VALUE(&RMTID)
IF (&RMTLOC *EQ '*SYSNAM') +
RTVNETA SYSNAME(&RMTLOC)
ELSE IF (&RMTLOC *EQ '*LCLLOCNAM') +
RTVNETA LCLLOCNAME(&RMTLOC)
ELSE IF (&RMTLOC *EQ '*RMTID') +
CHGVAR VAR(&RMTLOC) VALUE(&RMTID)
IF (&LCLLOC *EQ '*SYSNAM') +
RTVNETA SYSNAME(&LCLLOC)
ELSE IF (&LCLLOC *EQ '*LCLLOCNAM') +
RTVNETA LCLLOCNAME(&LCLLOC)
ELSE IF (&LCLLOC *EQ '*RMTID') +
CHGVAR VAR(&LCLLOC) VALUE(&RMTID)
IF (&NBRDEV *GT 0) DO
CRTCTLVWS CTLD(&VCTL) TEXT('Virtual controller for +
display station passthru')
IF (&NBRDEV *GT &COUNT) DO
CHGVAR VAR(&COUNT) VALUE(&COUNT + 1)
CHGVAR VAR(&CNT) VALUE(&COUNT)
CRTDEVDSP DEVD(&VDEV *TCAT &CNT) DEVCLS(*VRT) +
TYPE(5251) MODEL(11) CTL(&VCTL) +
KBDTYPE(USB) TEXT('Virtual 5251 11 passthru +
display station')
ENDDO
IF (&NBRDEV *GT &COUNT) DO
CHGVAR VAR(&COUNT) VALUE(&COUNT + 1)
CHGVAR VAR(&CNT) VALUE(&COUNT)
CRTDEVDSP DEVD(&VDEV *TCAT &CNT) DEVCLS(*VRT) +
TYPE(3197) MODEL(D1) CTL(&VCTL) +
KBDTYPE(USB) TEXT('Virtual 3197 D1 passthru +
display station')
ENDDO
IF (&NBRDEV *GT &COUNT) DO
CHGVAR VAR(&COUNT) VALUE(&COUNT + 1)
CHGVAR VAR(&CNT) VALUE(&COUNT)
CRTDEVDSP DEVD(&VDEV *TCAT &CNT) DEVCLS(*VRT) +
TYPE(3180) MODEL(2) CTL(&VCTL) KBDTYPE(USB) +
TEXT('Virtual 3180 02 passthru display +
station')
ENDDO
ENDDO
CRTLINSDLC LIND(&LIND) RSRCNAME(&RESOURCE) +
CNN(*SWTPP) EXCHID(&EXCHID) NRZI(*NO) +
LINESPEED(&LINESPEED) AUTODIAL(&AUTODIAL) +
DIALCMD(*V25BIS) STNADR(01) TEXT('SDLC Line +
Description used for passthru')
CRTCTLAPPC CTLD(&CTL) LINKTYPE(*SDLC) SWITCHED(*YES) +
APPN(*NO) SWTLINLST(&LIND) EXCHID(&EXCHID) +
CNNNBR(&PHONE) STNADR(&STNADR)
CRTDEVAPPC DEVD(&DEV) RMTLOCNAME(&RMTID) +
LCLLOCNAME(&LCLLOC) CTL(&CTL) MODE(BLANK +
#BATCH) APPN(*NO) TEXT('Passthru device for +
' *CAT &RMTID)
MSGFWD: CALL PGM(MSGFWD) /* If MSGFWD not found, EXIT */
MONMSG MSGID(CPF0000)
ENDPGM: ENDPGM